home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / pcboard / numess1.zip / NUMESS.PPS < prev   
Text File  |  1996-04-09  |  1KB  |  24 lines
  1. ;NUMess v1.0    Post message to Sysop for each new user.
  2. ;Atlantis Software
  3. ;BBS 706-776-9276 28.8
  4. ;------------------------------------------------------------------------------
  5.  
  6.     STRING     VAR001
  7.  
  8. ;------------------------------------------------------------------------------
  9.  
  10.     GETUSER
  11.     LET VAR001=U_NAME()
  12.     FCREATE 1,PPEPATH()+PPENAME()+".DAT",O_WR,S_DN
  13.     FPUTLN 1,"             @X06┌───────────────────────────────────────────────────┐@X0F"
  14.     FPUTLN 1,"             @X06│             @X0FNew Caller to the System!@X06             │@X0F"
  15.     FPUTLN 1,"             @X06└───────────────────────────────────────────────────┘@X0F"
  16.     FPUTLN 1,""
  17.     FPUTLN 1,"@X0F@X0E                         UserName@X0A:@X0F "+VAR001
  18.     FPUTLN 1,"@X0F@X0E                             From@X0A:@X0F "+U_CITY
  19.     FPUTLN 1,"@X0F@X0E                       Alias Used@X0A:@X0F "+U_ALIAS
  20.     FCLOSE 1
  21.     MESSAGE 0,"SYSOP","New Caller PPE","New Caller Arrived!","R",0,0,0,PPEPATH()+PPENAME()+".DAT"
  22.     DELETE PPEPATH()+PPENAME()+".DAT"
  23.     END
  24.